From: Henrik Enberg <henrik.enberg@telia.com>
Date: Tue, 17 Jan 2006 22:31:38 +0000 (+0000)
Subject: (rmail-process-new-messages): Add an X-Coding-System header if one
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8790^2~154
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2d34648d500106df5b8ff421b3d1e55d48354049;p=emacs.git

(rmail-process-new-messages): Add an X-Coding-System header if one
doesn't exist.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e0bc1378882..dea879addb1 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1944,7 +1944,8 @@ non-nil then do not show any progress messages."
         (case-fold-search nil)
 	(new-message-counter 0)
 	(start (point-max))
-	end attributes keywords message-descriptor-list date)
+	end attributes keywords message-descriptor-list
+	date coding)
     (or nomsg (message "Processing new messages..."))
     ;; Process each message in turn starting from the back and
     ;; proceeding to the front of the region.  This is especially a
@@ -1985,6 +1986,17 @@ non-nil then do not show any progress messages."
 		    (delete-char 1)))
 		(setq end (marker-position end-marker))
 		(set-marker end-marker nil)))
+
+	  ;; Add an X-Coding-System header if we don't have one.
+	  (unless (rmail-header-get-header "X-Coding-System")
+	    (let ((case-fold-search t))
+	      (when (save-excursion
+		      (goto-char start)
+		      (search-forward "\n\n" nil t)
+		      (re-search-backward rmail-mime-charset-pattern start t))
+		(rmail-header-add-header "X-Coding-System"
+					 (downcase (match-string 1))))))
+
 	  ;; Make sure we have an Rmail BABYL attribute header field.
 	  ;; All we can assume is that the Rmail BABYL header field is
 	  ;; in the header section.  It's placement can be modified by